* Fix compilation warning in 'cl--supertypes-for-typeof-types'

* lisp/emacs-lisp/cl-preloaded.el (cl--supertypes-for-typeof-types): Fix
warning.

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index fb06b127676003f31aa470525f0452c3446e7771..30753bcd5c5c00047dfe6fb31ee73fd03f593a1e 100644 (file)
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -99,8 +99,7 @@ the symbols returned by `type-of', and SUPERTYPES is the list of its
 supertypes from the most specific to least specific.")
 
 (defun cl--supertypes-for-typeof-types (type)
-  (cl-loop with res = ()
-           with agenda = (list type)
+  (cl-loop with agenda = (list type)
            while agenda
            for element = (car agenda)
            unless (or (eq element t) ;; no t in `cl--typeof-types'.